home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 131 / SGDS 131.2mg / SDGS.131 / SDC131 / C / MMXIV (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-08-22  |  1.9 KB  |  106 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM  (C)1992
  2. 100  PRINT  CHR$(21): IF  PEEK(104) < >8  THEN  POKE 104,8: POKE 103,1: POKE 2048,0: PRINT  CHR$(4)"-mmxiv      "
  3. 110  HGR : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): HIMEM: 38400
  4. 130  CALL 2346: REM GSMONO
  5. 140  POKE 104,15: GOTO 1
  6. 150  CALL 2346: REM GSCOLR
  7. 160  PRINT  CHR$(4)"BYE""BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  SPEED= <CTRL-0x09> IF 1 GET  PLOT  LET <CTRL-0x09> SPEED= 3 DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT }<CTRL-0x09> J<UNKNOWN TOKEN> ONERR  STR$) END  PLOT  XDRAW <CTRL-0x09> IF }<CTRL-0x09> -  HGR2 b LOMEM: % GET  POS<CTRL-0x09> CLEAR 
  11. 34278 ' ONERR  <CTRL-0x18>}@<CTRL-0x0e> DEL & SPEED= 
  12. 10761 <CTRL-0x0e>}<CTRL-0x09>*<CTRL-0x0e>}<CTRL-0x09>* PLOT ~<CTRL-0x09> ONERR <UNKNOWN TOKEN>)
  13. 32365 <CTRL-0x09> PLOT ~<CTRL-0x09> VTAB 
  14. 41996 2 TAB( ? = <CTRL-0x02>I LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x05> LOMEM: $Q&<CTRL-0x18> LOMEM: $<CTRL-0x09>
  15. 1193 e' DEL ' LEFT$ TAN<CTRL-0x08> =  POS ?<UNKNOWN TOKEN><CTRL-0x09> END L<UNKNOWN TOKEN><UNKNOWN TOKEN> -<CTRL-0x14><UNKNOWN TOKEN><CTRL-0x1b> -<CTRL-0x0c> = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L HIMEM: <CTRL-0x09><CTRL-0x0a> DEL ! SPEED= 
  16. 8837  SPEED= <CTRL-0x18> DEL # =  *
  17. 8216 (08@HPX`hpx END  GR  HGR2  ROT=  COLOR=  STORE  GOSUB  DEF 
  18. 3084 <CTRL-0x0c><CTRL-0x0c>
  19. 13107 66666
  20. 7695 <<CTRL-0x1f><CTRL-0x0c>
  21. 3096 <CTRL-0x06>33
  22. 28187 ;3n
  23. 6 
  24. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  25. 12336 0<CTRL-0x18><CTRL-0x0c>
  26. 16140 <CTRL-0x0c><CTRL-0x1e><CTRL-0x18><CTRL-0x18>~~<CTRL-0x18><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x06>~~
  27. 12 
  28. 1548 <CTRL-0x03>
  29. 15155 ?73<CTRL-0x1e>
  30. 3084 <CTRL-0x0c><CTRL-0x0c>?
  31. 7728 <CTRL-0x03><CTRL-0x03>?
  32. 7216 03<CTRL-0x1e>
  33. 6942 ?<CTRL-0x18><CTRL-0x18>
  34. 12319 03<CTRL-0x1e>
  35. 7939 33<CTRL-0x1e>
  36. 3096 <CTRL-0x06><CTRL-0x06><CTRL-0x06>
  37. 7731 33<CTRL-0x1e>
  38. 15923 03<CTRL-0x1e>
  39. 12 <CTRL-0x0c><CTRL-0x0c>
  40. 6144 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  41. 62 >>
  42. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  43. 6192 <CTRL-0x0c>
  44. 25406 og<CTRL-0x1b>c>
  45. 13107 ?33
  46. 7987 33<CTRL-0x1f>
  47. 771 <CTRL-0x03>3<CTRL-0x1e>
  48. 13107 33<CTRL-0x1f>
  49. 3843 <CTRL-0x03><CTRL-0x03>?
  50. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  51. 15107 33<CTRL-0x1e>
  52. 16179 333
  53. 3084 <CTRL-0x0c><CTRL-0x0c>?
  54. 12336 03<CTRL-0x1e>
  55. 3871 <CTRL-0x1f>33
  56. 771 <CTRL-0x03><CTRL-0x03>?
  57. 13119 333
  58. 16183 ;33
  59. 13107 33<CTRL-0x1e>
  60. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  61. 13107 3<CTRL-0x1b>6
  62. 7987 <CTRL-0x0f><CTRL-0x1b>3
  63. 7683 03<CTRL-0x1e>
  64. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  65. 13107 33<CTRL-0x1e>
  66. 13107 3<CTRL-0x1e><CTRL-0x0c>
  67. 13107 ??3
  68. 3102 <CTRL-0x1e>33
  69. 3102 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  70. 3096 <CTRL-0x06><CTRL-0x03>?
  71. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  72. 3078 <CTRL-0x18>0`
  73. 12336 00<
  74. 102 
  75. 3084 <CTRL-0x18>
  76. 13118 ~
  77. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  78. 13118 33><CTRL-0x1e>3<CTRL-0x1f><CTRL-0x03><CTRL-0x1e>
  79. 16140 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>33>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  80. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  81. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x07><CTRL-0x03><CTRL-0x03>3<CTRL-0x1f><CTRL-0x0f><CTRL-0x1f>3
  82. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>3??33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>33<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  83. 13107 >00
  84. 819 <CTRL-0x03><CTRL-0x03><CTRL-0x1e><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1e>
  85. 3135 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1c>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x0c>33??33<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>333<CTRL-0x1e><CTRL-0x0c><CTRL-0x06><CTRL-0x03>
  86. 3096 <CTRL-0x06>?
  87. 1548 <CTRL-0x0c><CTRL-0x0c>8
  88. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x07><CTRL-0x0c><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x07>
  89. 27 
  90. 32639 
  91. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  92. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  93. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  94. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  95. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  96. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  97. 32896  END  END  END  END 
  98. 32896  END  END  END  END  END 
  99. 32896  END  END  END  END  END 
  100. 32896  END  END  END  END  END (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = 
  101. 1  PRINT  CHR$(4)"-piracy.rpk"
  102. 10  VTAB 5: HTAB 14: PRINT "MAGIC DIAMONDS"
  103. 40  VTAB 24: HTAB 16: PRINT "Press a key"
  104. 50  GET A$
  105. 51  PRINT  CHR$(4)"-title.rpk": GET A$
  106. 60  POKE 24576,0: POKE 104,96: PRINT  CHR$(4)"-md.1"